(outline-discard-overlays): Fix the case

where an overlay extends on both sides of the region.

diff --git a/lisp/textmodes/outline.el b/lisp/textmodes/outline.el
index 6116c8116da73a6b02e9a0655e0217a5fafa525e..3b7ae6c076dce82df38e4ad6c376aaf8a607456e 100644 (file)
--- a/lisp/textmodes/outline.el
+++ b/lisp/textmodes/outline.el
@@ -397,7 +397,8 @@ If FLAG is nil then text is shown, while if FLAG is t the text is hidden."
                  (if (> (overlay-end o) end)
                      (let ((o1 (outline-copy-overlay o)))
                        (move-overlay o1 (overlay-start o1) beg)
-                   (move-overlay o (overlay-start o) beg)))
+                       (move-overlay o end (overlay-end o)))
+                   (move-overlay o (overlay-start o) beg))
                (if (> (overlay-end o) end)
                    (move-overlay o end (overlay-end o))
                  (delete-overlay o)))))